Programación de las Funciones cos(x), senh(x) y cosh(x) utilizando Series de Taylor e Inducción Matemática (página 2)

Código del
Programa

Módulo de
Funciones

Imports System.Math
'Para que funcione la función
Abs() para sacar el valor
absoluto.

Module Module1

Public Function coseno1(ByVal x As Double) As Double

Dim tm As Double =
1

coseno1 = tm

Dim k As Integer =
1

While Abs(tm) >
0.00001

tm = -tm * ((x * x) / ((k) * (k + 1)))

coseno1 = coseno1 + tm

k = k + 2

End While

End Function

Public Function senoh1(ByVal x As Double) As Double

Dim tm As Double =
x

senoh1 = tm

Dim k As Integer =
1

While Abs(tm) >
0.00001

tm = tm * ((x * x) / ((k + 1) * (k + 2)))

senoh1 = senoh1 + tm

k = k + 2

End While

End Function

Public Function cosenoh1(ByVal x As Double) As Double

Dim tm As Double =
1

cosenoh1 = tm

Dim k As Integer =
1

While Abs(tm) >
0.00001

tm = tm * ((x * x) / ((k) * (k + 1)))

cosenoh1 = cosenoh1 + tm

k = k + 2

End While

End Function

End Module

Código
del Formulario del Programa

Public Class Form1

Private Sub ex_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles
TextBoxxcosh.KeyPress

If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Or
(Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46)
Then 'Los
únicos caracteres que se permitirá introducir en el
TextBox serán los números del 0 al 9 (ASCII del 48 al
57) así como también la tecla backspace, el signo
menos y el punto.

'No se hace nada porque el caracter
presionado es válido.

Else

e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.

End If

End Sub

Private Sub xn_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs)

If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Then 'Los únicos
caracteres que se permitirá introducir en el TextBox
serán los números del 0 al 9 (ASCII del 48 al 57)
así como también la tecla backspace.

'No se hace nada porque el caracter
presionado es válido.

Else

e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.

End If

End Sub

Private Sub xx_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxsenh.KeyPress

If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Or
(Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46)
Then 'Los
únicos caracteres que se permitirá introducir en el
TextBox serán los números del 0 al 9 (ASCII del 48
al 57) así como también la tecla backspace, el
signo menos y el punto.

'No se hace nada porque el caracter
presionado es válido.

Else

e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.

End If

End Sub

Private Sub senox_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxcos.KeyPress

If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Or
(Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46)
Then 'Los
únicos caracteres que se permitirá introducir en el
TextBox serán los números del 0 al 9 (ASCII del 48
al 57) así como también la tecla backspace, el
punto y el signo menos.

'No se hace nada porque el caracter
presionado es válido.

Else

e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.

End If

End Sub

Private Sub Buttoncosh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncosh.Click

TextBoxrespuestacosh.Text =
cosenoh1(Val(TextBoxxcosh.Text))

End Sub

Private Sub Buttonsenh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsenh.Click

TextBoxrespuestasenh.Text =
senoh1(Val(TextBoxxsenh.Text))

End Sub

Private Sub Buttoncos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncos.Click

TextBoxrespuestacos.Text =
coseno1(Val(TextBoxxcos.Text))

End Sub

Private Sub
Buttonlimpiar_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttonlimpiar.Click

'Limpiar todos los TextBox.

TextBoxxcosh.Text = ""

TextBoxrespuestacosh.Text = ""

TextBoxxsenh.Text = ""

TextBoxrespuestasenh.Text = ""

TextBoxxcos.Text = ""

TextBoxrespuestacos.Text = ""

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBoxxcos.Focus() 'Para
que al cargar el formulario aparezca ya el cursor en el
TextBoxxcos.

End Sub

End Class

Jaime Montoya

Santa Ana, 22 de febrero de 2008

El Salvador